(rmail-auto-file): Rewrote test for "filed" using

rmail-desc-get-keywords.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 227abc0d07d18c232a3159822d69a35fa4eec882..e03e68bb37b67deda99c6954f8dddd3e9c5c597d 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2316,7 +2316,7 @@ iso-8859, koi8-r, etc."
 (defun rmail-auto-file ()
   "Automatically move a message into a sub-folder based on criteria.
 Called when a new message is displayed."
-  (if (or (rmail-message-labels-p rmail-current-message "filed")
+  (if (or (member "filed" (rmail-desc-get-keywords rmail-current-message))
          (not (string= (buffer-file-name)
                        (expand-file-name rmail-file-name))))
       ;; Do nothing if it's already been filed.